home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
VisionaleV1.1-D1.adf
/
virx
/
TransformVertices.virx
< prev
next >
Wrap
Text File
|
1992-10-30
|
1KB
|
50 lines
/*
* TransformVertices.virx
* Copyright (c)1992 Bruno Costa & Lucia Darsa
*/
options results
signal on HALT
signal on SYNTAX
signal on FAILURE
lockgui
form = '"BOOL,TO Window,0|'||,
'MSG,Transformation Matrix:|'||,
'STR,(1.1),0,6|STR,(1.2),0,6|STR,(1.3),0,6|'||,
'STR,(2.1),0,6|STR,(2.2),0,6|STR,(2.3),0,6|'||,
'STR,(3.1),0,6|STR,(3.2),0,6|STR,(3.3),1,6"'
requestform TITLE '"Transform Vertices"' form
if rc >= 5 then
signal halt
parse var result window '|' mat11 '|' mat12 '|' mat13 '|' mat21 '|' mat22 '|' mat23 '|' mat31 '|' mat32 '|' mat33
if window = 0 then
winname = 'FROM'
else
winname = 'TO'
transformpoints winname mat11 mat12 mat13 mat21 mat22 mat23 mat31 mat32 mat33
unlockgui
exit 0
BREAK_C:
HALT:
unlockgui
exit 20
FAILURE:
requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
unlockgui
exit 20
SYNTAX:
requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
unlockgui
exit 20